5 POKE55,.:POKE56,56:CLR
6 DV=PEEK(186):IFDV<8THENDV=8
7 PRINT"[147]":POKE53280,.:POKE53281,.
10 POKE53371,.
14 POKE53272,31
16 AD=49152
17 SYSAD:SYSAD+12
19 PRINT"[147]"
47 BS$="[154][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164]"
50 DT=57
55 P2=2*(null):RD=180/(null):DR=1/RD
60 GOSUB385
65 D=(J-2451545)+F
70 D=D+DT/86400
72 GOSUB490
75 POKE214,10:PRINT:PRINTTAB(1)"[156][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
77 SYSAD+9,12
80 READ A1,A2,D1,D2
85 T=T-1
90 A1=A1+A2*T
95 D1=D1+D2*T
100 Q=A1:GOSUB825:A1=Q*DR
105 Q=D1:GOSUB825:D1=Q*DR
110 D9=COS(D5)*SIN(A1-A5)
115 N9=SIN(D1)*COS(D5)*COS(A1-A5)
120 N9=N9-COS(D1)*SIN(D5)
125 K=RD*ATN(N9/D9)
130 IFD9<0THENK=K+180
135 READW0,W1,W2:GOSUB330
140 REM PLANETOECENTIC DECLINATION EARTH
145 SD=-SIN(D1)*SIN(D5)
150 SD=SD-COS(D1)*COS(D5)*COS(A1-A5)
155 DE=RD*ATN(SD/SQR(1-SD*SD))
160 REM P.A. OF AXIS
165 SP=COS(D1)*SIN(A1-A5)
170 CP=SIN(D1)*COS(D5)
175 CP=CP-COS(D1)*SIN(D5)*COS(A1-A5)
180 PA=RD*ATN(SP/CP)
185 IFCP<0THENPA=PA+180
190 IFPA<0THENPA=PA+360
195 IFPA>=360THENPA=PA-360
200 REM PHASE AND MAGNITUDE
205 K4=((R4+RR)^2-R*R)/(4*R4*RR)
210 CI=(R4*R4+RR*RR-R*R)/(2*R4*RR)
215 I=RD*ATN(SQR(1-CI*CI)/CI)
220 M4=5*LOG(RR*R4)/LOG(10)
225 M4=-1.52+.016*I+M4
230 A1$="[153][195]ENTRAL [205]ERIDIAN:[158]"
235 A2$="[153][208].[193]. OF [193]XIS:[158]"
240 A3$="[153][196]ECLIN. OF [197]ARTH:[158]"
245 A4$="[153][193]NGULAR [211]IZE (ARCSEC):[158]"
250 A5$="[153]% [211]URFACE LIT:[158]"
255 A6$="[153][205]AGNITUDE:[158]"
260 PRINTTAB(4)A1$;C;"[219]":GOSUB900
265 PRINTTAB(4)A2$;PA;"[219]"
270 PRINTTAB(4)A3$;DE;"[219]"
275 PRINTTAB(4)A4$;9.36/RR
280 PRINTTAB(4)A5$;K4*100
285 PRINTTAB(4)A6$;M4
290 GOSUB4000
300 RESTORE:GOTO47
330 REM ROTATIONS FROM EPOCH
335 W=W0+W1*(D-.0057755*RR)+W2*T
340 Q=W-K:GOSUB825:C=Q
345 RETURN
350 REM NORTH POLE R.A.
355 DATA317.681,+0.678
360 REM NORTH POLE DECLIN.
365 DATA52.886,+0.352
370 REM ROTATION
375 DATA176.655,350.8919830,0.62
380 REM CALENDAR -->JD
385 PRINT"[147]":SYSAD+9,3
386 PRINT"[154][220][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][221]"
387 PRINTBS$""TAB(38)BS$
388 PRINT"[154][255][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]"
390 PRINT""TAB(8)"[150][205] [193] [210] [212] [201] [193] [206]   [196] [193] [212] [193]"
395 PRINT:PRINTTAB(6)"[158][197]NTER [217]EAR: ";:L9%=4:GOSUB840:Y=Q9
400 PRINTTAB(6)"[158][205]ONTH: ";:L9%=2:GOSUB840:M=Q9
402 IFM=<0ORM>12THENPRINT"[145][145]":GOTO400
405 PRINTTAB(6)"[158][196]AY: ";:L9%=2:GOSUB840:D=Q9
407 IFD=<0ORD>31THENPRINT"[145][145]":GOTO405
410 PRINT:PRINTTAB(6)"[158][213]NIVERSIAL [212]IME-[200]OUR: ";:L9%=2:GOSUB840:H1=Q9
412 IFH1<0ORH1>24THENPRINT"[145][145]":GOTO410
415 PRINTTAB(6)"[158][205]INUTES: ";:L9%=2:GOSUB840:M1=Q9
416 IFM1<0ORM1>60THENPRINT"[145][145]":GOTO415
418 PRINTTAB(6)"[158][211]ECONDS: ";:L9%=2:GOSUB840:S1=Q9
419 IFS1<0ANDS1>60THENPRINT"[145][145]":GOTO418
421 POKE214,10:PRINT:PRINTTAB(6)"[155][201]S THIS CORRECT? [150][217]/[206]":POKE198,.
422 GOSUB930
424 SYSAD+9,5
425 D=D+H1/24+M1/1440+S1/86400
430 G=1:IFY<1582THENG=0
435 D1=INT(D):F=D-D1-.5
440 J=-INT(7*(INT((M+9)/12)+Y)/4)
445 IFG=0THEN465
450 S=SGN(M-9):A=ABS(M-9)
455 J3=INT(Y+S*INT(A/7))
460 J3=-INT((INT(J3/100)+1)*3/4)
465 J=J+INT(275*M/9)+D1+G*J3
470 J=J+1721027+2*G+367*Y
475 IFF>=0THEN485
480 F=F+1:J=J-1
485 RETURN
490 REM FUNDAMENTAL ARGUMENTS
495 T=D/36525+1
500 REM T=CENTURIES FROM 1900.0
505 L0=.779072+.00273790931*D
510 G0=.993126+.0027377785*D
515 L4=.987353+.00145575328*D
520 G4=.053856+.00145561327*D
525 F4=.849694+.00145569465*D
530 L5=.089608+.00023080893*D
535 G5=.056531+.00023080893*D
540 G6=.882987+9.294371E-05*D
545 L0=(L0-INT(L0))*P2
550 G0=(G0-INT(G0))*P2
555 L4=(L4-INT(L4))*P2
560 G4=(G4-INT(G4))*P2
565 F4=(F4-INT(F4))*P2
570 L5=(L5-INT(L5))*P2
575 G5=(G5-INT(G5))*P2
580 G6=(G6-INT(G6))*P2
585 REM   SUN
590 L=6910*SIN(G0)
595 L=L+72*SIN(2*G0)
600 L=L-17*T*SIN(G0)
605 L=L-7*COS(G0-G5)
610 R=1.00014-.01675*COS(G0)
615 R=R-.00014*COS(2*G0)
620 L=L0+L/206265
625 REM     MARS
630 M=38451*SIN(G4)
635 M=M+2238*SIN(2*G4)
640 M=M+181*SIN(3*G4)
645 M=M-52*SIN(2*F4)
650 M=M+37*T*SIN(G4)
655 M=M-22*COS(G4-2*G5)
660 M=M-19*SIN(G4-G5)
665 M=M+17*COS(G4-G5)
670 M=M+17*SIN(4*G4)
675 M=M-16*COS(2*G4-2*G5)
680 M=M+13*COS(G0-2*G4)
685 M=M-10*SIN(G4-2*F4)
690 M=M+7*COS(G0-G4)
695 M=M-7*COS(2*G0-3*G4)
700 B=6603*SIN(F4)
705 B=B+622*SIN(G4-F4)
710 B=B+615*SIN(G4+F4)
715 B=B+64*SIN(2*G4+F4)
720 R4=1.53031-.1417*COS(G4)
725 R4=R4-.0066*COS(2*G4)
730 R4=R4-.00047*COS(3*G4)
735 L4=L4+M/206265:B4=B/206265
740 N9=R4*COS(B4)*SIN(L4-L)
745 D9=R4*COS(B4)*COS(L4-L)+R
750 L1=ATN(N9/D9)
755 IFD9<0THENL1=L1+(null)
760 LL=L1+L
765 V=N9*N9+D9*D9
770 RR=SQR(V+(R4*SIN(B4))^2)
775 S=R4*SIN(B4)/RR
780 BB=ATN(S/SQR(1-S*S))
785 E=(84428-47*T)/206265
790 N9=SIN(LL)*COS(E)-TAN(BB)*SIN(E)
795 D9=COS(LL):A5=ATN(N9/D9)
800 IFD9<0THENA5=A5+(null)
805 S=SIN(BB)*COS(E)
810 S=S+COS(BB)*SIN(E)*SIN(LL)
815 D5=ATN(S/SQR(1-S*S))
820 RETURN
825 REM NORMALIZE DEGREES
830 Q=Q/360:Q=Q-INT(Q):Q=Q*360
835 RETURN
840 Q9$="":POKE198,.
842 GETA$
844 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN842
846 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
848 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO860
850 IFLEN(Q9$)>=L9%THENSYSAD+9,15:GOTO842
852 IF(A$>="0"ANDA$<="9")ORA$="."ORA$="-"THEN856
854 GOTO842
856 Q9$=Q9$+A$
858 PRINT""A$;:SYSAD+9,6:GOTO842
860 PRINT" [157][157] [157]";:GOTO842
900 IFC>=0ANDC<60THENPRINTTAB(3)"[150][197]RYTHRAEUM [205]ARE, [214]IKING 1 AREA!":RETURN
905 IFC>=60ANDC<120THENPRINTTAB(3)"[150][211]OLIS [204]ACUS, AND [212]HARSIS REGION":RETURN
910 IFC>=120ANDC<180THENPRINTTAB(3)"[150][211]IRENUM [205]ARE AND [207]LYMPUS MONS!":RETURN
915 IFC>=180ANDC<240THENPRINTTAB(3)"[150][195]IMMERIUM [205]ARE & [200]ESPERIA AREA":RETURN
920 IFC>=240ANDC<300THENPRINTTAB(3)"[150][211]YRTIS [205]AJOR AND [214]IKING 2 AREA":RETURN
925 IFC>=300ANDC<360THENPRINTTAB(3)"[150][211]EPENTIS [205]ARE, [211]INUS [205]ERIDIANI":RETURN
930 GETHC$:IFHC$<>"Y"ANDHC$<>"N"THEN930
935 IFHC$="Y"THENRETURN
940 IFHC$="N"THEN385
4000 POKE214,20:PRINT:PRINTTAB(8)"[159](1[159]) [212]RY ANOTHER ONE
4005 [153][163]8)"OPEN(2OPEN) (null)O (null)(null)RIGHT$(null)VAL(null)(null)VAL (null)ENU"
4010 [158]AD[170]9,5:[151]198,0
4015 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[167]4015
4020 [139]A$[178]"1"[167][142]
4025 [158]AD[170]15
4030 [153]"LOADSTOPLOAD"[199](34)"B.UNIVERSE II"[199](34)","DV
4035 [153]"RUN28"
4040 [151]631,13:[151]632,13:[151]198,2:[128]
10000 D[178][194](186):N$[178]"MARS DATA":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]